home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Shareware World / Info / For Developers / InstallerMaker™ 4.0 Installer / Customizing InstallerMaker / Scripting InstallerMaker / Text Files / Useful Handlers < prev    next >
Text File  |  1995-10-27  |  2KB  |  75 lines
  1.  
  2. -- Utility for checking if a file or folder exists
  3.  
  4. on FileExists(path)
  5.     --Here is a utility that determines if a file exists at file path "path"
  6.     --It uses the "File Commands" scripting addition.
  7.     
  8.     copy true to itExists
  9.     try
  10.         info for path
  11.     on error
  12.         copy false to itExists
  13.     end try
  14.     
  15.     return itExists
  16. end FileExists
  17.  
  18.  
  19. --These two handlers let you get items and item counts from 
  20. --AppleScript lists. This lets you work around a problem with
  21. --AppleScript that makes it hard to let the words "item" and 
  22. --"count" be used both by AppleScript and by InstallerMaker.
  23.  
  24. on GetItem(aList, ndx) -- Takes an AppleEvent list, and the item number you want
  25.     return item ndx of aList
  26. end GetItem
  27.  
  28. on GetCount(aList)
  29.     return count of aList
  30. end GetCount
  31.  
  32.  
  33. --Here's a set of scripts used to log text into BBEdit 3.1 or later. If you're
  34. --just using Script Editor to do your scripts, this can help you debug your 
  35. --scripts.
  36.  
  37.  
  38. on ExistsBBWin()
  39.     --Utility for detecting BBEdit editing window
  40.     set itExists to true
  41.     tell application "BBEdit 3.1"
  42.         try
  43.             copy (name of window 1) to theNULL
  44.         on error err
  45.             set itExists to false
  46.         end try
  47.     end tell
  48.     
  49.     return itExists
  50. end ExistsBBWin
  51.  
  52. on SaveThisFile(logPath)
  53.     --Tells BBEdit to save a file
  54.     tell application "BBEdit 3.1" to save window 1 to file logPath
  55. end SaveThisFile
  56.  
  57. on LogText(someText)
  58.     --Small utility for printing lines to BBEdit's front window.
  59.     --Call this as "LogText(someTextVar)"
  60.     
  61.     set hasWindow to false
  62.     if ExistsBBWin() then
  63.         set hasWindow to true
  64.     end if
  65.     
  66.     tell application "BBEdit 3.1"
  67.         if not hasWindow then ¬
  68.             create window
  69.         tell window 1
  70.             Insert Text (someText as string) & return
  71.         end tell
  72.     end tell
  73. end LogText
  74.  
  75.